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EDTSCHMINSSTR = insert characters 1-82 Sep-1984 AX-11 Bliss-32 V4.0-742 Page 1) 
14- ~3ep-1984 99: 93: $3 EDT SRE CHAI INSSTR.BLI;1 . (1) 

: 1 600) 0 ZTITLE "EDTSCHMINSSTR = insert characters’ 
3 ¢ Oe MODULE EDTSCHMINSSTR ( ! Insert characters 
: 7 Booz gDENT = *v04-000' ! File: CHMINSSTR.BLI Edit: JBS1006 | 
; 5 0005 1 BEGIN 
: 6 Bos 22 
: 4 4444 Ll eee Ree RRA AAA RARE AERA AAA AA AA AE EAA AAA ATER E AERA AAAA RARER ERATE EEE 
3 008 1 !* * 
: 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 « 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * | 
3 1} oot) : :* ALL RIGHTS RESERVED. * 
: ; * 
: ig oOi8 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND core * | 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
. 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
: i Bots : bn TRANSFERRED. * 
3 it ® 
: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$ $8 Boss : :* CORPORATION. * 
4 i® te 
4 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
; & 0026 1 !* * 
; a 0027 1 !* * | 
$ 4 b0S5 LL eee eee RA RARER AEE AERA EAE 
: 1 1 | 
; $0 0030 1 
; 0031 1 !++ | 
; 32 O03¢ 1: FACILITY: EDT == The DEC Standard Editor | 
s 33 0033 1: 
> a 0034 1 | ABSTRACT: 
; @ 0035 1! 
;: = 0036 1} This module does a (change mode) insertion of a string of 
: * si t4 : characters which may include carriage returns. 
$ +4 44 ! ENVIRONMENT: Runs at any access mode - AST reentrant 
° 41 0041 1 i AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
; 62 B06¢ 13 
, 43 0043 1 | MODIFIED BY: 
: 44 044 1! | 
| «645 045 1! 1-001 - Original. DJS 04-Feb-1981. This module was created b 
: 46 Bose 1 extracti ng the tout tne INSERT =f thing from the module CHANGE.BLI. 
; «647 0047 1 ! 1-002 - Regularize header JBS 03=Mar-1981 
; 648 0048 1 | 1-003 - Change SPLIT er INE. to EDTSSsPLt NINS . JBS 30-Mar-1981 
: 49 0049 1! 1-004 - New screen update Logic, cr, JBS T5-Sep-19 
; 2 0050 1 | 1-005 = Add parameter to split Line routine. SMB 16-Nov-1982 
: 32 0082 ! i} 1-006 = Do special handling trailing carriage returns. JBS 28-Dec-1982 
7 053 1 
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N 15 
EDTSCHMINSSTR EDTSCHMINSSTR = insert characters 16-Sep-1984 00:02: AX-11 Bliss-32 V4.0-74 Page 
104-600 EDTSSINS_CHS = insert characters 14-Sep-19 4 99:93:47 LEDT SREICHMINSSYR-OL I: ’ 
; Hey p658 } ZSBTTL ‘EDTSSINS_CHS = insert characters’ 
; deo 1 GLOBAL ROUTINE EDTSSINS_CHS ( ! Insert characters t 
; 661 1 S, ! address of soe to insert 
; F S666 1 L ! Length of that string 
:« 3 0665 1 ) 2 
>; 94 0664 1 
; 0665 1 !++ 
; B08 1 ! FUNCTIONAL DESCRIPTION: 
: 0667 1! 
; 0668 1! Insert a string of characters which may include carriage returns. 
; 299 0669 1! Carriage returns are treated as Line terminators, having the effect of 
3 1 beoe } breaking the current Line of text into two. 
; ins bore 1 ! FORMAL PARAMETERS: 
; 0673 1! c 
: 104 0674 1! § a pointer to the character string to insert. 
s WO 0675 1! : 
: 106 0676 1! L the Length of the string. 
s 7 0677 1! 
; 108 0678 1 ! IMPLICIT INPUTS: 
: 109 679 1! 
: 110 680 1! NONE 
3 Wi 0681 1! 
s Tie 0682 1 ! IMPLICIT OUTPUTS: 
s 335 0683 1! 
; 114 0684 1! NONE 
s 115 0685 1! 
: 116 0686 1 ! ROUTINE VALUE: 
s V7 0687 1! 
; «118 0688 1! A value of 0 is returned if a Line exceeded 255 characters during the 
3; «119 0689 1! insert (further insertions were lost). 
> 120 0690 1! 
: 121 0691 1 ! SIDE EFFECTS: 
s Yee 0692 1! 
2 Ves 0693 1! NOWE 
> 124 0694 1! 
s tee 0695 1 !-- 
: Yeu 0696 1 
: 127 0697 2 BEGIN 
s 148 0698 
: 129 0699 EXTERNAL ROUTINE chy! 
: 130 0700 EDTSSINS_STR, ! Insert a string of characters at the current position 
s i) 0701 EDTSSSPLT_LNINS : NOVALUE, : Split a Line of text at the current cursor position 
: 132 070 EDT$$CS_RIGHT, ! Move right a character 
s 35 070 EDTSSCS_LEFT; ! Move left a character 
: 134 0704 
3; 135 0705 OCAL 
; 136 0706 END_STRING, 
: 137 0707 POIRT, 
; 133 0708 MY_S, 
: 139 0709 MY_L; 
3: 140 gre 
3 (141 711 MY_L = .L; 
; | Orie + 
s 14 71 ! Initialize a pointer to the current character and one to the end of the 
3 (144 0714 ! string. 
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16 
MES. = insert characters 1EReoct9Bs 90:03:99 YANCT LeU eard2 v4 2-74 


POINT = .S; 
END STRING = CHSPLUS (.S, .MY_L); 
i If we have trailing carriage returns do the Line splitting before the insertion 
to improve screen repainting. 
= (CAV GTR 1) AND (CHSRCHAR (CHSPLUS (.POINT, .MY_L = 1)) EQL ASC_K_CR)) 
BEGIN 
OCAL 
LINES_INSERTED, 
STATUS; 
‘+ 
: Insert enough empty Lines to account for the carriage returns. 
Keep backing up so our position doesn't change. 
LINES_INSERTED = ); 
totes OS pls GTR 1) AND (CHSRCHAR (CHSPLUS (.POINT, .MY_L - 1)) EQL ASC_K_CR)) DO 


EDTSSSPLT_LNINS (1); 
EDTSSCS_LEFT (); 


MYL = MYL = 1; 
LINES_INSERTED = .LINES_INSERTED + 1; 
END; 
4 
Insert the text without the trailing carriage returns. 
‘ STATUS = EDTSSINS_CHS (.POINT, .MY_L); 
Now move forward over those blank Lines. 


DECR I FROM .LINES_INSERTED - 1 TO 0 DO 
EDTS$S$CS_RIGHT 7); 


+ 
We are done with the insert. 


RETURN (.STATUS); 
END; 


'¢ 
! Either this is a string of length one or there is no : 
trailing carriage returns. Loop until no more characters remein. 


WHILE CHSPTR_NEQ (.END_STRING, .POINT) DO 
BEGIN 


IF (CHSRCHAR (.POINT) EQL ASC_K_CR) 
THEN 
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16 
HMINSSTR = insert characters 1h-se -1984 00:02: AX-11 Bliss-32 V4.0-742 P 
INS_CHS = insert characters 1228687 382 99:93:47 EDT LSREICHMINSSTR BL 123 a (33 
14 
; } The character is a carriage return: split the Line. 
t PO SSSSPLT LNINS (1) 'y¥ L th imi 
: ! Us t 
é POINT = CASPLUS (.POINT, 1); Fnac tag meni! 
4 END 
3 ELSE 
2 12 BEGIN 
4 | The character is not a carriage return. Insert the string of 
2 characters up to the end or to the next carriage return. 
4 : MY_S = .POINT; 
4 WHILE (CHSPTR_NEQ (.END_ STRING, .POINT) AND (CHSRCHAR (.POINT) NEQ ASC_K_CR)) DO 
4 POINT = CASPLUS (.POINT, 15; 
2 IF CEDTSSINS_STR (.MY_S, CHSDIFF <.POINT, .MY_S)) EQL 0) THEN RETURN (0); 
; END; 
5 END; 
2 RETURN (1); 
1 END; ! of routine EDTS$INS_CHS 
-TITLE EDTSCHMINSSTR EDTSCHMINSSTR = insert characters 
-IDENT \V04-000\ 
-EXTRN EDTSSINS_STR, EDTS$SPLT_LNINS 
EXTRN EDTS$CS_RIGHT, EDTS$CS_CEFT 
-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 
007C 00000 -ENTRY EDTSSINS_CHS, Save R2,R3,R4,R5,R6 ; 0660 
29 000000006 00 9 seit MOVAB EDTSS$SPLT_LNINS, R6 3 
5 08 AC dO 0000 MOVL L, MYL ; 0711 
54 AC 00 00000 MOVL S$, POINT ; 0716 
55 53 04 AC C1 00011 ADDL3 S, MY_L, END_STRING : 0717 
01 53 D1 00016 CMPL  MY_L, #4 : 0723 
42 15 00019 BLEQ 5$ : 
0D FF A344 91 Bpos8 CMPB -1(MY_L)CPOINTJ, #13 3 
38 12 000 BNEQ 5$ ; 
26 D4 Boe 2 CLRL LINES_INSERTED ; 0735 
01 53 D1 00024 1$: CMPL MY_L, #1 ; 0737 
19 15 00027 BLEQ 2$ 3 
0D FF A344 91 00029 CMPB -1(MY_L)CPOINTJ, #13 3 
12 12 000 F BNEQ 2s : 
3 DD 000 PUSHL #1 ; 0739 
66 1 FB 000 CALLS #1, EDTSS$SPLT_LNINS 3 
000000006 00 29 4 00 CALLS #0, EDTSSCS_LEFT - : 0740 
53 07 0003C DECL MY_L ; 0741 
52 06 000 ‘ INCL LINES_INSERTED 3 074g 
f 11 0004 BRB 1$ ; 073 
DD 00042 2$: PUSHL MY_L ; 0748 


EDTSCHMINSSTR EDTSCHMINSSTR = insert characters 1 
v04-000 EDTSSINS_CHS = insert characters 1 
“8 ss re eggs 
53 6 8 O04A 
07 11 00040 

000000006 00 9 FB O004F 
F6 F4 $828 

50 53 D0 0005 

04 0005C 

54 33 Di 0005D 
2 13 00060 

0D 64 91 O08 

09 12 B008 

01 DD 00067 

66 9} FB 00069 

4 06 0006C 

gD 11 Q006E 

52 4 00 00070 

54 55 Di 00073 

09 13 60076 
0D 64 91 00078 

04 13 00078 

54 D6 0007D 

F2 11 0007F 

7E 54 2§ C3 00081 
52 DD 00085 

000000006 00 02 FB 00087 
50 DS OQO08E 

CB 12 00090 

04 11 00092 

50 01 DO 00094 

04 00097 

50 D4 00098 

04 0009A 


; Routine Size: 155 bytes, Routine Base: _EDTSCODE + 0000 


; 228 0798 1 
229 0799 1 !<BLF/PAGE> 


D 16 
66-Sep-1984 
4-Sep-1984 


8$: 


9$: 


10$: 


PUSHL 
CALLS 


19:28:87 


YAX=11 Bt iss-32 V4.0-742 
EDT. SRCICHMINSSTR.BLI;1 
POINT 

#2, EDTSSINS_CHS 

RO, STATUS 

#0, EDTSSCS_RIGHT 

3 

STATUS, RO 

END_STRING, POINT 

(POINT), #13 

i 

#1, EDTSSSPLT_LNINS 

POINT 

POINT, MY_S 

END_STRING, POINT 

(POINT), #13 

POINT 

MY_S, POINT, -(SP) 

ae, EDTSSINS_STR 
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16 
EDTSCHMINSSTR EDTSCHMINSSTR = insert characters 15. -Sep-1984 AX-11 BLlis or 3e V4.0-742 P 
1042000 EDTSSINS_CHS = insert characters 14-Sep- 1984 93: ae aS EDT. SRCICHMINSSTR.BLI;1 — 
H 233 p800 ] END ! of module EDTSCHMINSSTR 
: : 0802 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: -EDTSCODE 155 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Bicker Som err t. abe 2 oe Se aay: ae nae Syabols ooocoeo= Pages on 
: File Total Loaded Percent Mapped im 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 2 0 40 90:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00. 
; COMMAND QUALIFIERS 


a jhe teeta tata cease ca tna lori cenche MSRC$: CHMINSSTR.BL1I/UPDATE=(ENHS: C 


3; Size: 155 code + 0 data bytes 
; Run Time: 00:13.5 

3; Elapsed Time 00:16.7 

3 Lines/CPU Min: 3577 

; Lexemes/CPU-Min: 10407 

3 ery Used: 91 pages 

; Compilation Complete 
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